home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 May / 64er_Magazin_91-05_1991_Markt__Technik_de.d64 / arc 1.5.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  350 lines
  1. 10 sys36864
  2. 20 .opt oo
  3. 30 *= 49152
  4. 50 ziel =2049
  5. 90 ser1 =1 ; versionsnummer
  6. 92 ser2 =5 ; sekundaer
  7. 100 cint =65409
  8. 102 open =$ffc0
  9. 104 close =$ffc3
  10. 106 chkout =$ffc9
  11. 108 clrchn =$ffcc
  12. 110 print =$ffd2
  13. 112 get =$ffe4
  14. 114 ptr =2
  15. 116 clall =$ffe7
  16. 118 axout =$bdcd
  17. 120 strout =$ab1e
  18. 122 anzprg =4
  19. 124 gr =5
  20. 126 setnam =$ffbd
  21. 128 dn =$b8
  22. 130 namlen =183
  23. 132 sa =$b9
  24. 134 len =251
  25. 136 return =$aad7
  26. 138 tsys =158
  27. 140 bank =1
  28. 142 tmp =166
  29. 144 crs1 =$cc
  30. 146 crs2 =$cd
  31. 148 crs3 =$cf
  32. 150 name =820
  33. 152 zeile =214
  34. 154 space =$ab3f
  35. 156 vic =$d000
  36. 158 bild =$d1
  37. 160 namber =$cd00 ; 45 files a 17 zeichen
  38. 162 calc =$e9f0
  39. 166 tmp2 =181
  40. 168 scradr =648
  41. 170 scrmem =$d000
  42. 172 clrscr =$e544
  43. 174 sendnam =$f3d5
  44. 176 talk =$ffb4
  45. 178 sectalk =$ff96
  46. 180 iecin =$ffa5
  47. 182 status =$90
  48. 184 clsfil =$f642
  49. 186 fa =$ba
  50. 188 key =198
  51. 190 clrx =59903
  52. 192 alle =139
  53. 194 lfd =140
  54. 196 chkin =$ffc6
  55. 198 fehler =704; fehlerkanal
  56. 200 real =141
  57. 202 last =142
  58. 204 aktlen =170
  59. 206 lenpos =178
  60. 208 memend =$bf00
  61. 210 save =$ffd8
  62. 212 ioflag =157
  63. 214 reset =65532
  64. 216 sum =253
  65. 218 laenge =254
  66. 220 spalte =211
  67. 224 cursor =58732
  68. 900 base jmp losgehts
  69. 1000 help .asc " bitte geben sie die filenamen der max.
  70. 1002 .byt 13:.[198] " 45 einzelfiles ein. '$': dir. anzeigen
  71. 1004 .byt 13:.asc "                     '*': fertig
  72. 1006 .byt 13:.[198] "                     '?': korrektur
  73. 1008 .byt 13:.asc "                     ':': dir. lesen":.byt 13,0
  74. 1010 holnam1 .byt 13:.asc " name des ":brk
  75. 1012 holnam2 .asc ". files ? ":brk
  76. 1020 taste .byt 13:.asc " - weiter mit taste -":brk
  77. 1022 also .asc " es wurden ":brk
  78. 1024 also2 .asc " files erfasst.":.byt 13
  79. 1026 .asc " sind die alle auf einer diskette ? ":brk
  80. 1030 gesask .byt 13:.asc " gesamtfile - name ? ":brk
  81. 1032 autotxt .asc " files aus directory einlesen.":.byt 13
  82. 1033 .asc "    (j) file uebernehmen":.byt 13
  83. 1034 .asc "    (n) file ueberspringen":.byt 13
  84. 1035 .asc "    (*) fertig":.byt 13
  85. 1036 .asc "    (d) diskette wechseln":.byt 13
  86. 1037 .asc "    (a) arc neu starten":brk
  87. 1040 oha .asc " bearbeite file nr. ":brk
  88. 1042 ohu .byt 13:.asc " name: ":brk
  89. 1044 ohe .byt 13:.asc " - bitte diskette einlegen -":brk
  90. 1050 csu .asc " diskfehler: ":brk
  91. 1052 spd .asc "  (v) nochmal versuchen
  92. 1054 hope .byt 13:.[198] "  (n) naechstes file
  93. 1056 .byt 13:.asc "  (e) ende":brk
  94. 1060 dahin .byt 13:.asc " ladeadresse : ":brk
  95. 1062 loada .asc " startadresse: ":brk
  96. 1064 full .byt 13:.asc " file zu lang - speicher voll !!":brk
  97. 1070 jetzt .asc " gesamtfile wird gespeichert
  98. 1072 .byt 13:.[198] " - bitte diskette einlegen -":brk
  99. 1074 jetzned .[198] " alle files uebersprungen !":brk
  100. 1080 alk .byt 13:.[198] " speicherung beendet. alles okay.
  101. 1082 bob .byt 13:.asc " programm nochmal starten ? [j/n]":brk
  102. 1084 watnu .byt 13:.asc "  (v) nochmal versuchen
  103. 1086 .byt 13:.[198] "  (e) ende":brk
  104. 1090 auzer1 .[198] "stand: ":brk
  105. 1092 anzer2 .[198] " von max. 45 files erfasst.":brk
  106. 1094 auzer3 .[198] "diskette einlegen!":brk
  107. 1096 auzer4 .[198] "disketten-name: ":brk
  108. 1098 dirne .[198] "$0
  109. 1100 auzer5 .asc "file: ":brk
  110. 1110 auzlen .asc "block-summe: ":brk
  111. 1120 anz2 .byt 13:.asc "        frei: ":brk
  112. 1122 momanz .asc "laenge: ":brk
  113. 2000 kopf =*
  114. 2001 bas =*
  115. 2002 .wor endp,1990
  116. 2004 .byt tsys:.asc "2061":brk
  117. 2006 endp =*-bas+ziel
  118. 2008 .wor 0
  119. 2010 jsr cint:jsr clall:lda #6:sta vic+32:sta vic+33
  120. 2012 lda fa:cmp #8:bcc set8b:cmp #15:bcc okayb
  121. 2013 set8b lda #8:sta fa
  122. 2014 okayb lda #<genb:ldy #>genb:sta ptr:sty ptr+1
  123. 2016 jsr hol:sta anzprg:sty gr
  124. 2018 lda #<txt1:ldy #>txt1:jsr strout
  125. 2020 fileloop inc gr:lda #<txt2:ldy #>txt2:jsr strout:ldx gr:lda #0:jsr axout
  126. 2022 lda #<txt3:ldy #>txt3:jsr strout:ldx anzprg:lda #0:jsr axout
  127. 2023 ldx ptr:ldy ptr+1:jsr setnam
  128. 2024 jsr hol:bne (NULL)n:lda #<txt4:ldy #>txt4:jsr strout:jsr clall
  129. 2025 ldx gr:dex:lda #0:jsr axout:jmp return
  130. 2026 (NULL)n iny:sty namlen:sty sa:sty dn
  131. 2028 getnam jsr hol:beq hates:inc namlen:bne getnam
  132. 2029 qfileloop bcc fileloop
  133. 2030 hates lda #54:sta bank:jsr open:inc bank:ldx #1:jsr chkout
  134. 2032 jsr hol:jsr print:jsr hol:jsr print
  135. 2034 jsr hol:sta len:jsr hol:sta len+1
  136. 2036 saveprg lda len:bne nochwas:lda len+1:beq fertig:dec len+1
  137. 2038 nochwas dec len:jsr hol:jsr print:clc:bcc saveprg
  138. 2040 fertig jsr clrchn:lda #1:jsr close:clc:bcc qfileloop
  139. 2100 hol =*-bas+ziel
  140. 2102 lda #54:sta bank
  141. 2104 ldy #0:lda (ptr),y:inc ptr:bne loop1:inc ptr+1
  142. 2106 loop1 inc bank:and #$ff:rts
  143. 2150 txt1 =*-bas+ziel
  144. 2151 atxt1 .asc "[142][147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  145. 2152 .[198] "archive v":.byt ser1[170]48,".",ser2[170]48,32
  146. 2154 mode .[198] "gen    von nikolaus heusler
  147. 2156 .asc "(c) nh-071290-arr       ein nss programm
  148. 2158 .byt 13
  149. 2160 art .[198] "die files werden erzeugt...":brk
  150. 2162 txt2 [178][172][171]bas[170]ziel
  151. 2164 .byt 13:.[198] "onfile ":brk
  152. 2166 txt3 [178][172][171]bas[170]ziel
  153. 2168 .byt 13:.[198] "onvon ":brk
  154. 2170 txt4 [178][172][171]bas[170]ziel
  155. 2172 .byt 13:.[198] "onfertig !!    files generiertcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd":brk
  156. 2190 [128]kopf [178][172]
  157. 2200 genb [178][172][171]bas[170]ziel
  158. 2210 mem[195] [178]mem[128][171]genb
  159. 2212 memblk [178][177]mem[195]
  160. 2900 schieb [178][128]kopf[171]kopf[171]256
  161. 3000 copydown ldy #0
  162. 3002 copy1 lda kopf,y:sta ziel,y
  163. 3004 lda kopf[170]schieb,y:sta ziel[170]schieb,y
  164. 3006 iny:bne copy1:rts
  165. 3050 [156]pag ldx #5
  166. 3052 cpg jsr [156]x:inx:cpx #24:bcc cpg:rts
  167. 3100 [161]name jsr delber:ldx #0:stx [195]
  168. 3102 keylp lda #0:sta crs1
  169. 3104 wk jsr [161]:beq wk
  170. 3106 ldx #2:stx crs2
  171. 3108 wx ldx crs3:bne wx
  172. 3110 inc crs1:cmp #13:bne text:ldx [195]:beq keylp
  173. 3112 rts
  174. 3114 text cmp #20:bne nodel:ldx [195]:beq keylp:jsr [153]:dec [195]:bpl keylp
  175. 3116 nodel cmp #32:bcs ok1
  176. 3118 wr[145]g jmp keylp
  177. 3120 ok1 tax:bpl ok:cmp #149:bcc wr[145]g:cmp #156:bcc ok:cmp #160:bcc wr[145]g
  178. 3122 ok ldx [195]:cpx #16:bcs keylp:sta name,x:jsr [153]:inc [195]:bne keylp
  179. 3150 delber ldx #16:lda #"close
  180. 3152 d1 jsr print:dex:bne d1
  181. 3154 ldx #16:lda #"[157]
  182. 3156 d2 jsr [153]:dex:bne d2:rts
  183. 3200 cax dex:stx tmp2:lda #0:sta tmp[170]1:txa:ldx #4
  184. 3202 cax1 asl:rol tmp[170]1:dex:bne cax1:adc tmp2:sta tmp:lda tmp[170]1
  185. 3204 adc #[177]namber:sta tmp[170]1:rts
  186. 3300 scroll ldx #11
  187. 3302 scr1 jsr calc:lda bild:sta tmp:lda bild[170]1:sta tmp[170]1
  188. 3304 inx:jsr calc:ldy #39
  189. 3306 scr2 lda (bild),y:sta (tmp),y:dey:bpl scr2
  190. 3308 cpx #23:bcc scr1
  191. 3310 up lda #"on":jmp [153]
  192. 3350 put ldy #0:sta (ptr),y:inc ptr:bne raus:inc ptr[170]1
  193. 3352 raus rts
  194. 3360 [160]9 jsr [156]chn:lda #9:jmp [160]
  195. 3400 dir ldy #0:sty tmp:sty tmp2:lda scradr:sta tmp[170]1:lda #[177]scrmem
  196. 3402 sta tmp2[170]1:ldx #48:sei:stx bank:ldx #4:lda zeile:pha
  197. 3404 copy3 lda (tmp),y:sta (tmp2),y:dey:bne copy3:inc tmp[170]1:inc tmp2[170]1:dex
  198. 3406 bne copy3:ldx #55:stx bank:cli:jsr [156]scr
  199. 3408 ldx #[179]name:ldy #[177]name:lda [195]:jsr setnam:lda #$60:sta sa:jsr s[128]nam
  200. 3410 lda fa:jsr talk:lda sa:jsr sectalk:lda #0:sta status:ldy #3
  201. 3412 l1 sty tmp:jsr iecin:sta tmp[170]1:ldy status:bne l4:jsr iecin:ldy status
  202. 3414 bne l4:ldy tmp:dey:bne l1:ldx tmp[170]1:jsr axout:jsr space
  203. 3416 l3 jsr iecin:ldx status:bne l4:tax:beq l2:jsr [153]:bcc l3
  204. 3418 l2 jsr [142]:ldy #2:bne l1
  205. 3420 l4 jsr clsfil:lda #[179]taste:ldy #[177]taste:jsr strout:jsr [146]key
  206. 3421 lda #1:sta vic[170]33:jsr [156]scr:lda #6:sta vic[170]33
  207. 3422 pla:sta zeile:ldx #48:sei:stx bank:ldx #4:lda #[177]scrmem:sta tmp[170]1:ldy #0
  208. 3424 sty tmp:sty tmp2:lda scradr:sta tmp2[170]1
  209. 3426 copy2 lda (tmp),y:sta (tmp2),y:dey:bne copy2:inc tmp[170]1:inc tmp2[170]1
  210. 3428 dex:bne copy2:ldx #55:stx bank:cli:rts
  211. 3500 [146]key lda #0:sta key
  212. 3502 wkk cmp key:beq wkk:dec key:rts
  213. 4000 losgehts jsr c[181]:jsr clall:lda #6:sta vic[170]32:sta vic[170]33
  214. 4001 lda fa:cmp #8:bcc set8:cmp #15:bcc okay
  215. 4002 set8 lda #8:sta fa
  216. 4003 okay lda #0:sta ioflag:sta art:sta anzprg
  217. 4004 lda #32:sta mode:sta mode[170]1:sta mode[170]2
  218. 4006 lda #[179]atxt1:ldy #[177]atxt1:jsr strout
  219. 4010 lda #17:sta art:lda #"g":sta mode:lda #"e":sta mode[170]1:lda #"n
  220. 4012 sta mode+2:lda #<help:ldy #>help:jsr strout
  221. 4100 eing1 inc anzprg
  222. 4102 eing2 lda #<holnam1:ldy #>holnam1:jsr strout:ldx anzprg:jsr xtab
  223. 4104 lda #<holnam2:ldy #>holnam2:jsr strout
  224. 4106 jsr getname:lda name:cmp #"*":bne noend:lda anzprg:cmp #2:bcs jaend1
  225. 4108 stop jsr up:bcc eing2
  226. 4112 noend cmp #"?":bne nokor:lda zeile:cmp #12:bcc stop
  227. 4114 dec anzprg:jsr up:bcc stop
  228. 4116 nokor cmp #"$":bne nodir:jsr dir:jmp stop
  229. 4118 nodir cmp #":":bne noaut:jmp getauto
  230. 4120 noaut ldx anzprg:cpx #46:bcs stop:jsr cax:ldy len:lda #0:sta (tmp),y:dey
  231. 4122 transnam lda name,y:sta (tmp),y:dey:bpl transnam
  232. 4124 lda zeile:cmp #23:bcc eing1:jsr scroll:jmp eing1
  233. 4200 jaend1 dec anzprg
  234. 4202 jaend2 jsr clrpag
  235. 4204 lda #<also:ldy #>also:jsr strout:ldx anzprg:jsr xout
  236. 4206 lda #<also2:ldy #>also2:jsr strout:lda #0:sta key
  237. 4208 wjn jsr get:cmp #"j":beq off:cmp #"n":bne wjn
  238. 4214 off jsr print:sec:sbc #"j":sta alle
  239. 4216 lda #<gesask:ldy #>gesask:jsr strout:jsr getname:lda name:cmp #"*
  240. 4218 beq ja[128]2:cmp #"?":beq ja[128]2
  241. 4250 lda #0:sta lfd:sta real:jsr copydown
  242. 4252 lda #[179]genb:ldy #[177]genb:sta ptr:sty ptr[170]1:jsr put
  243. 4260 ldy #15:sty sa:sty dn:lda #0:sta nam[195]:jsr [159]
  244. 4300 main inc lfd:ldx lfd:dex:cpx anzprg:bne sleep:jmp [128]e
  245. 4301 sleep ldx #5:lda ptr:sta last:lda ptr[170]1:sta last[170]1
  246. 4302 [156]p2 jsr [156]x:inx:cpx #19:bcc [156]p2
  247. 4304 lda #[179]oha:ldy #[177]oha:jsr strout:lda #0:ldx lfd:jsr xout
  248. 4306 lda #[179]ohu:ldy #[177]ohu:jsr strout:ldx lfd:jsr cax:lda tmp:ldy tmp[170]1
  249. 4308 jsr strout
  250. 4316 lda alle:bmi weiter:lda #[179]ohe:ldy #[177]ohe:jsr strout:jsr [146]key
  251. 4318 ldx #11:jsr [156]x:lda alle:bne weiter:lda #[171]1:sta alle
  252. 4320 weiter ldy #[171]1
  253. 4322 wtr iny:lda (tmp),y:sty tmp2:jsr put:ldy tmp2:tax:bne wtr:tya:ldx tmp
  254. 4324 ldy tmp[170]1:jsr setnam:lda #0:sta sa:lda #9:sta dn:jsr [159]
  255. 4326 ldx #15:jsr chkin:ldx #[171]1
  256. 4328 [161]err inx:jsr [161]:sta fehler,x:cmp #13:bne [161]err:lda #0:sta fehler[170]1,x
  257. 4330 jsr [156]chn:lda fehler:cmp #"0":beq aechtz
  258. 4331 jsr [160]9
  259. 4332 lda #[179]csu:ldy #[177]csu:jsr strout:lda #[179]fehler:ldy #[177]fehler:jsr strout
  260. 4334 lda #[179]spd:ldy #[177]spd:jsr strout
  261. 4336 gti jsr [161]:cmp #"e":bne noe
  262. 4337 halt lda last:sta ptr:lda last[170]1:sta ptr[170]1:jmp [128]e
  263. 4338 noe cmp #"v":bne nov:dec lfd
  264. 4339 qmain lda last:sta ptr:lda last[170]1:sta ptr[170]1:jmp main
  265. 4340 nov cmp #"n":bne gti:beq qmain
  266. 4350 aechtz ldx #9:jsr chkin:jsr [161]:jsr put:pha:jsr [161]:jsr put:pha
  267. 4352 lda #[179][147]a:ldy #[177][147]a:jsr strout:pla:tay:pla:tax:tya:jsr axout
  268. 4354 lda ptr:sta [195][185]:lda ptr[170]1:sta [195][185][170]1:lda #0:sta akt[195]:sta akt[195][170]1
  269. 4356 jsr put:jsr put:lda #[179]dahin:ldy #[177]dahin:jsr strout:ldx ptr:lda ptr[170]1
  270. 4358 jsr axout
  271. 4400 [147]loop jsr iecin:tax:lda status:lsr:lsr:bcs ab[176]t
  272. 4402 txa:jsr put:inc akt[195]:bne noinc:inc akt[195][170]1
  273. 4404 noinc lda ptr[170]1:cmp #[177]mem[128]:bcc [147]loop
  274. 4406 jsr [160]9:lda #[179]full:ldy #[177]full:jsr strout
  275. 4408 lda #[179]hope:ldy #[177]hope:jsr strout:lda #0:sta key
  276. 4410 [161]ne jsr [161]:cmp #"e":beq qhalt:cmp #"n":bne [161]ne:jmp qmain
  277. 4412 qhalt jmp halt
  278. 4450 ab[176]t jsr [160]9
  279. 4452 ldy #0:lda akt[195]:sta ([195][185]),y:iny:lda akt[195][170]1:sta ([195][185]),y
  280. 4454 inc real:jmp main
  281. 4500 [128]e lda #0:jsr put
  282. 4502 [128] ldx #5
  283. 4504 [156]pg3 jsr [156]x:inx:cpx #19:bcc [156]pg3:lda real:beq nixdrin:sta genb
  284. 4505 lda #[179]jetzt:ldy #[177]jetzt:jsr strout:jsr [146]key:ldx #7:jsr [156]x
  285. 4506 lda [195]:ldx #[179]name:ldy #[177]name:jsr setnam
  286. 4508 lda #54:sta bank:ldx ptr:ldy ptr[170]1:lda #[179]ziel:sta tmp:lda #[177]ziel:sta tmp[170]1
  287. 4509 lda #tmp:jsr [148]:inc bank
  288. 4510 ldx #15:jsr chkin:ldx #[171]1
  289. 4512 [161]err2 inx:jsr [161]:sta fehler,x:cmp #13:bne [161]err2:lda #0:sta fehler[170]1,x
  290. 4514 jsr [156]chn:lda fehler:cmp #"0":beq aechtz2
  291. 4515 jsr [160]9:lda #[179]csu:ldy #[177]csu:jsr strout:lda #[179]fehler:ldy #[177]fehler
  292. 4516 jsr strout:lda #[179]w[193]u:ldy #[177]w[193]u:jsr strout:lda #0:sta key
  293. 4517 wat jsr [161]:cmp #"e":beq [129]t:cmp #"v":bne wat:jmp [128]
  294. 4518 nixdrin lda #[179]jetzned:ldy #[177]jetzned:jsr strout
  295. 4520 aechtz2 lda #15:jsr [160]:lda #[179]alk:ldy #[177]alk
  296. 4521 sout jsr strout:lda #0:sta key
  297. 4522 erwjn jsr [161]:cmp #"n":bne live:jmp (reset)
  298. 4524 live cmp #"j":bne erwjn
  299. 4526 neustart jmp (base[170]1)
  300. 4528 [129]t lda #[179]bob:ldy #[177]bob:bne sout
  301. 4600 [161]au[164] jsr [156]pag:lda #[179]au[164]txt:ldy #[177]au[164]txt:jsr strout
  302. 4602 lda #0:sta sum
  303. 4610 eil1 jsr blockout:ldx #19:jsr linx:lda #[179]auzer1:ldy #[177]auzer1:jsr strout
  304. 4612 ldx anzprg:dex:jsr xtab:lda #[179]anzer2:ldy #[177]anzer2:jsr strout
  305. 4620 ldx #16:jsr [156]x
  306. 4621 ldx #14:jsr [156]x:jsr linx:lda #[179]auzer3:ldy #[177]auzer3:jsr strout
  307. 4622 diskw jsr [146]key:inc key:jsr [161]:cmp #"a":beq neustart
  308. 4624 ldx #[179]dirne:ldy #[177]dirne:lda #2:jsr setnam:lda #$60:sta sa:jsr s[128]nam
  309. 4626 lda fa:jsr talk:lda sa:jsr sectalk:lda #0:sta status:ldy #8:jsr skip
  310. 4628 bcc d
  311. 4629 vnodisk jmp nodisk
  312. 4630 d ldx #14:jsr linx:lda #[179]auzer4:ldy #[177]auzer4:jsr strout:lda #34:jsr [153]
  313. 4632 namout jsr iecin:ldx status:bne vnodisk:jsr [153]:cmp #34:bne namout
  314. 4640 such0 jsr iecin:ldx status:bne vnodisk:tax:bne such0
  315. 4642 ldy #2:jsr skip
  316. 4643 qnodisk bcs vnodisk:jsr iecin:pha:jsr iecin:pla:sta laenge
  317. 4644 such[165] jsr iecin:ldx status:bne nodisk:cmp #34:bne such[165]
  318. 4646 ldx #16:jsr linx
  319. 4647 lda #[179]auzer5:ldy #[177]auzer5:jsr strout:lda #34:jsr [153]
  320. 4648 ldx #0
  321. 4650 ot[164] stx [195]:jsr iecin:ldx status:bne nodisk:ldx [195]
  322. 4652 cmp #34:beq [128]nam:sta name,x:inx:bne ot[164]
  323. 4654 [128]nam lda #0:sta name,x:lda #[179]name:ldy #[177]name:jsr strout:lda #34:jsr [153]
  324. 4656 lda #28:sta spalte:lda #[179]momanz:ldy #[177]momanz:jsr strout:ldx laenge:jsr xout
  325. 4660 wahl jsr [161]:cmp #"a":beq qneustart
  326. 4662 cmp #"*":bne nofini:lda anzprg:cmp #2:bcc wahl:jsr clsfil:jmp ja[128]1
  327. 4663 qneustart jmp neustart
  328. 4664 nofini cmp #"d":bne n[145]ew
  329. 4666 nodisk jsr clsfil:jmp eil1
  330. 4668 n[145]ew cmp #"n":beq [130][145]e:cmp #"mid$":beq shftj:cmp #"j":bne wahl
  331. 4670 lda #memblk:cmp sum:bcc wahl:sbc sum:cmp laenge:bcc wahl
  332. 4674 shftj ldx anzprg:cpx #46:bcs wahl:jsr cax:ldy [195]
  333. 4676 transnm lda name,y:sta (tmp),y:dey:bpl transnm:inc anzprg
  334. 4678 lda laenge:clc:adc sum:bcc bcarry:lda #[171]1   
  335. 4679 bcarry sta sum:jsr blockout
  336. 4680 [130][145]e ldx #16:jsr [156]x
  337. 4681 ldx #19:jsr linx:lda #[179]auzer1:ldy #[177]auzer1:jsr strout
  338. 4682 ldx anzprg:dex:jsr xtab:lda #[179]anzer2:ldy #[177]anzer2:jsr strout
  339. 4684 jmp such0
  340. 4700 skip sty tmp:jsr iecin:lda status:beq okst:sec:rts
  341. 4702 okst ldy tmp:dey:bne skip:clc:rts
  342. 4800 blockout ldx #21:jsr linx:lda #[179]auz[195]:ldy #[177]auz[195]:jsr strout
  343. 4802 ldx sum:jsr xhun:lda #[179]anz2:ldy #[177]anz2:jsr strout:lda #memblk
  344. 4804 cmp sum:bcc zero[184]:sbc sum:.byt $2c
  345. 4806 zero[184] lda #0:tax
  346. 4810 xhun cpx #100:bcs xout:jsr space
  347. 4812 xtab cpx #10:bcs xout:jsr space
  348. 4818 xout lda #0:jmp axout
  349. 4820 linx lda #1:sta spalte:stx zeile:jmp curs[176]
  350.